home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 101
/
101.d81
/
rana boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
79 lines
100 printchr$(14)"[147]":poke53280,0:poke53281,0
110 gosub60000:gosub52000
130 sys57812"rana.font",8,0:poke780,0:poke781,64:poke782,54:sys65493
135 poke1327,50
140 sys57812"rana.ml",8,0:poke780,0:poke781,0:poke782,64:sys65493
145 poke1327,51
150 sys57812"rana.hi",8,0:poke780,0:poke781,0:poke782,144:sys65493
155 poke1327,52
160 sys57812"t.rana",8,0:poke780,0:poke781,0:poke782,128:sys65493
165 poke1327,53
170 sys57812"rana.inst",8,0:poke780,0:poke781,0:poke782,192:sys65493
171 poke1327,54
172 sys57812"rana.dsphi",8,0:poke780,0:poke781,208:poke782,151:sys65493
180 poke53272,(peek(53272)and240)or14
185 gosub50000
220 poke198,0:wait198,1:geta$
230 ifa$="[133]"then300
240 ifa$="[134]"then400
245 ifa$="[135]"then450
250 ifa$="[136]"then470
255 ifa$="q"then500
260 goto220
300 sys49152:goto185
400 poke247,0:poke248,90
410 sys16384:goto185
450 poke247,5:poke248,60
460 sys16384:goto185
470 poke247,9:poke248,45
480 sys16384:goto185
500 goto40000
580 rem
600 printtab(15)"disk error"
610 printtab(8)"hit any key to try again."
620 poke198,0:wait198,1:goto185
630 rem
10000 open15,8,15,"s0:rana boot":close15:save"rana boot",8:end
40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40030
40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
40040 print"run":poke631,13:poke632,13:poke198,2:end
50000 print"[147]"tab(5)"[129]#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
50010 printtab(5)"$ #"
51000 printtab(5)"# [156][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191]@ab[146] [129]$"
51005 printtab(5)"$ #"
51010 printtab(5)"# by gus vakalis [129]$"
51015 printtab(5)"$ #"
51016 printtab(5)"#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
51020 printtab(13)"[158]copyright 1992"
51030 printtab(8)"softdisk publishing inc."
51040 print"plug joystick into port two:"
51050 printtab(10)"f1 [154]for instructions."
51060 printtab(10)"f3 [154]to play novice game."
51065 printtab(10)"f5 [154]to play intermediate game."
51070 printtab(10)"f7 [154]to play expert game."
51075 printtab(10)"q [154]to exit to loadstar."
51080 return
51090 rem
51100 rem
52000 print""tab(10)"[204]oading file 1 of 6."
52010 return
52020 rem
52030 rem
60000 z$=" "
60010 poke214,10:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 fori=0to11:printz$:next
60025 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[210][197][211][195][213][197] [193][212] [210][193][206][193]"
60040 z$(1)="by [199]us [214]akalis"
60050 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
60060 z$(3)="[212]his program is the copyrighted work"
60070 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199]. [201]t is not"
60080 z$(5)="shareware or in the public domain."
60081 z$(6)="[210]eport illegal distribution of"
60082 z$(7)="this program by calling"
60083 z$(8)="1-800-831-2694 or 1-318-221-8718."
60090 poke214,12:print:fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next
60099 return